www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\Label\custom_Label\vista模板2的标签库\nd_search_kouvst.asp

    <%'$start_ext_newDsoft 以下系统生成,勿删!
'$newDsoft_label_type$:asp_label$end_newDsoft_label_type$
'$newDsoft_label_name$:nd_search_kouvst$end_newDsoft_label_name$
'$newDsoft_label_sql$: $end_newDsoft_label_sql$
'$newDsoft_label_params$:width,显示宽度,3|wiiidth,输入框宽度(按像素),3|httttt,输入框高度(按像素),3|sys_content_type,被搜索频道的频道id,1|isfff,搜索时是否显示分类选择,3|fen_name,设置搜索分类选择框在表单中的name,1|t_name,设置按什么搜索的选择框在表单中的name,1|p_name,设置提交频道id的隐藏域在表单中的name,1|kkey_name,设置搜索关键字输入框在表单中的name,1|ttypee,必填，被搜索频道的频道类型，文章类填article，下载类填down，图片视频类填picsp，产品类填cp，注意加引号,1|isnoxcpu,是否禁用搜索内容，而只搜索标题,3|inurl,搜索结果页url页面文件名,2$end_newDsoft_label_params$
'$newDsoft_label_fenye_num$: $end_newDsoft_label_fenye_num$
'$newDsoft_label_beizhu$:显示搜索框$end_newDsoft_label_beizhu$
'$newDsoft_is_sys_label$:0$end_newDsoft_is_sys_label$
'$newDsoft_other_params$:htmledxa:1|htmledxb:$end_newDsoft_other_params$
'$end_ext_newDsoft%>
<div><style type="text/css">
.serserkoua {width:$xxvar$width px;}
.inputsssza {width:$xxvar$wiiidth px;height:$xxvar$httttt px;}</style></div>
<form action="$xxvar$inurl" method="get">
    <table class="serserkoua" border="0">
        <tbody>
            <%
sys_content_type=$xxvar$sys_content_type

%><%if cstr($xxvar$isfff)="1" then%>
            <tr>
                <td>&#160;选择分类:</td>
                <td>&#160; <%

biao="[ND_Article_class]"

if trim(lcase(cstr($xxvar$ttypee)))="article" then

biao="[ND_Article_class]"

end if

if trim(lcase(cstr($xxvar$ttypee)))="down" then

biao="[ND_down_class]"

end if


if trim(lcase(cstr($xxvar$ttypee)))="picsp" then

biao="[ND_pic_or_sp_class]"

end if

if trim(lcase(cstr($xxvar$ttypee)))="cp" then

biao="[ND_prod_class]"

end if




  function next_cen$$xxxx_d_soft_complie$$rnd$(pid_list,deepth)



  
set rs=server.CreateObject("adodb.recordset")


  
  
rs.open "select * from "&biao&" where ((deepth="&deepth&" and parent_id_list like '%"&pid_list&"%') and sys_content_type='"&sys_content_type&"')  order by orders asc",newdsoft_conn_obj,1,1

if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa))

else

p_id=0

end if



do while  not rs.eof

pid_list222=rs("parent_id_list")&","&rs("id")
deepth222=rs("deepth")+1


    set rs2=server.CreateObject("adodb.recordset")    
rs2.open "select * from "&biao&" where ((deepth="&deepth222&" and parent_id_list like '%"&pid_list222&"%') and sys_content_type='"&sys_content_type&"')  order by orders asc",newdsoft_conn_obj,1,1


if rs2.eof then


if pid_list<>"" then
lista=split(pid_list,",")
numa=ubound(lista)
p_id=cstr(lista(numa-1))

else

p_id=0

end if
if p_id=0 then p_id=-1


'response.write "<level1 id="""&rs("id")&""" parentTypeID="""&p_id&""" caption="""&rs("ClassName")&""" PRI=""1"" explain="""&rs("id")&"""/>"&vbcrlf

%><%=" <option value='"&rs("id")&"'>"%><%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>├<%
else
%> │<%
end if
next

%><%=left(rs("classname"),22)%> <%="</option>"%><%

if not rs.eof then rs.movenext



if rs.eof or rs.bof then

 'response.write "</level0>"


'call next_cen_class(pid_list222,deepth222)

exit function



else




 
 
need_benji_next=1

end if

else




'response.write "<level0 id="""&rs("id")&"""  parentTypeID="""



'if deepth=0 then response.write "-1" else  response.write p_id


'response.write """ caption="""&rs("ClassName")&"""  PRI=""2"" explain="""&rs("id")&""" >"&vbcrlf

%><%=" <option value='"&rs("id")&"'>"%><%for iiiii1=1 to cint(deepth222)
if iiiii1=cint(deepth222) then
%>├<%
else
%> │<%
end if
next

%><%=left(rs("classname"),22)%> <%="</option>"%><%


call next_cen$$xxxx_d_soft_complie$$rnd$(pid_list222,deepth222)



if not rs.eof then rs.movenext

need_benji_next=1

if rs.eof or rs.bof then

'if deepth<>0  then response.write "</level0>"


'call next_cen_class(pid_list222,deepth222)

exit function


end if



end if


if need_benji_next=0 then

exit do

end if

need_benji_next=0
loop



end function


%><%="<select size='1' name='"%><%=$xxvar$fen_name%><%="'>"%><%="<option value='' selected='selected'>请选择分类</option>"%><%call next_cen$$xxxx_d_soft_complie$$rnd$("",0)%><%="</select>"%></td>
            </tr>
            <%end if%>
            <tr>
                <td>&#160;搜索类型:</td>
                <td>&#160; <%="<select size='1' name='"%><%=$xxvar$t_name%><%="'>"%><%="<option value='1' selected='selected'>搜索标题</option>"%><%if cstr($xxvar$isnoxcpu)<>"1" then%><%="<option value='1' selected='selected'>搜索内容</option>"%><%end if%><%="</select>"%><input type="hidden" name="<%=$xxvar$p_name%>" value="<%=sys_content_type%>" /></td>
            </tr>
            <tr>
                <td>&#160;搜索关键字:</td>
                <td>&#160; <input style="height: 16px" size="14" name="<%=$xxvar$kkey_name%>" type="text" /></td>
            </tr>
            <tr>
                <td align="center" colspan="2">&#160; <input type="submit" value="开始搜索" /></td>
            </tr>
        </tbody>
    </table>
</form>